30411 TMP$=LEFT$(TIME$,2) :IF VAL(TMP$)>=13 THEN TMP$=STR$(VAL(TMP$)-12)
30420 NH1$=LEFT$(TMP$,1) :NH2$=RIGHT$(TMP$,1)
30430 NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
30440 '
30450 IF OH1$<>NH1$ THEN IF VAL(NH1$)<>0 THEN PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*(VAL(NH1$))) ELSE PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*11)
30460 IF OH2$<>NH2$ THEN PUT@A(25+(13*1),20)-(25+(13*2-1),43),FONT%,,,,,(312*(VAL(NH2$)))
30470 IF OM1$<>NM1$ THEN PUT@A(35+(13*3),20)-(35+(13*4-1),43),FONT%,,,,,(312*(VAL(NM1$)))
30480 IF OM2$<>NM2$ THEN PUT@A(40+(13*4),20)-(40+(13*5-1),43),FONT%,,,,,(312*(VAL(NM2$)))
30545 TMP$=LEFT$(TIME$,2) :IF VAL(TMP$)>=13 THEN TMP$=STR$(VAL(TMP$)-12)
30550 NH1$=LEFT$(TMP$,1) :NH2$=RIGHT$(TMP$,1)
30560 NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
30570 '
30580 IF VAL(NH1$)<>0 THEN PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*(VAL(NH1$))) ELSE PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*11)